code segment
main proc far
	assume cs:code
start:
	push ds
	sub ax,ax
	push ax
	mov bx,0d0ah
	mov ch,4
next:
	mov cl,4
	rol bx,cl
	mov al,bl
	and al,0fh
	add al,30h
	cmp al,3ah
	jl print
	add al,27h
print:
	cmp ch,4
	jnz goon
	cmp al,3ah
	jl goon
	mov dl,30h
	mov ah,2h
	push ax
	int 21h
	pop ax
goon:	
	mov dl,al
	mov ah,2h
	int 21h
	dec ch
	jnz next
	mov dl,104
	mov ah,2h
	int 21h
	ret
main endp
code ends
	end start
